home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Contributed Scores / Claudio Martini / 3-voice Canon next >
Text File  |  1998-10-26  |  2KB  |  57 lines
  1. ; Canon for 2 violins in unison & cello by J.S.Bach
  2. ; by Claudio Martini <stalker@mix.it>
  3.  
  4. ;A simple 2 voice canon (shifted by one bar) over a given theme (on cello).
  5.  
  6. (def-orchestra 'orchestra
  7.    all-instruments (violin1 violin2 cello))
  8.  
  9. (def-motive theme
  10.    symbol   '(a c e f -b e (-1 e) d (-1 d) c b (-1 b) a -b -d a d c b)
  11.    length   '(2/4 2/4 2/4 2/4 2/4 -1/4 1/4 2/4 2/4 2/4 3/4 1/4 1/4 1/4 
  12.               1/4 1/4 1/4 2/4 2/4 1/4)
  13.    velocity '(88 78 80 75))
  14.  
  15. (def-motive canon
  16.    symbol   '(l h i j i h g (1 f) e d c b a -b a b d c b b i h g g m l 
  17.               k l g h f e j k i j l m k l g h o i n o a c e h)
  18.    length   '(-1/4 1/4 1/4. 1/16 1/16 1/16 1/16 1/16 1/16 1/8 1/8 1/8 
  19.               1/8 1/8. 1/32 1/32 5/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8 
  20.               1/8 1/8 1/8 5/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8 
  21.               1/8 1/4. 1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/4 -1/4)
  22.    velocity '(88 78 80 75))
  23.  
  24. (def-motive pause
  25.    length   '(4/4))
  26.  
  27. (def-motive end
  28.    symbol   '(o)
  29.    length   '(2/4)
  30.    velocity '(68))
  31.  
  32. (def-section sect-a
  33.    violin1
  34.       channel 2
  35.       program 1
  36.       zone '(8/1 8/1)
  37.       motive (list canon canon)
  38.       tonality (activate-tonality (harmonic-minor c 5))
  39.    violin2
  40.       channel 3
  41.       program 2
  42.       zone '(1/1 8/1 7/1 1/2) 
  43.       motive (list pause canon canon end)
  44.       tonality (activate-tonality (harmonic-minor c 5))
  45.    cello
  46.       channel 9
  47.       program 2
  48.       zone '(8/1 8/1 1/2)
  49.       motive (list theme theme theme)
  50.       tonality (activate-tonality (harmonic-minor c 4)))
  51.  
  52. (def-tempo 100)
  53.  
  54. (play-file-p "Canon in Unison"
  55.    all-instruments '(sect-a))
  56.  
  57.